library(tidyverse)
library(plotly)
levels_df <- read_csv("levels-cleaned.csv")
companyCompensation <- 
  levels_df %>%
  group_by(year, company) %>%
  summarise(yearly_compensation = mean(totalyearlycompensation))

cityCompensation <- 
  levels_df %>%
  group_by(year, location) %>%
  summarise(yearly_compensation = mean(totalyearlycompensation))

Yearly mean compensation for top 5 companies in 2017, 2018, 2019, 2020, 2021

companyCompensation2017 <- 
  companyCompensation %>%
  filter(year == 2017) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2018 <- 
  companyCompensation %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2019 <- 
  companyCompensation %>%
  filter(year == 2019) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2020 <- 
  companyCompensation %>%
  filter(year == 2020) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2021 <- 
  companyCompensation %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(companyCompensation2017, companyCompensation2018, companyCompensation2019, companyCompensation2020, companyCompensation2021, nrows = 5)

Yearly mean compensation for top 5 cities in 2017, 2018, 2019, 2020, 2021

cityCompensation2017 <- 
  cityCompensation %>%
  filter(year == 2017) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018 <- 
  cityCompensation %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2019 <- 
  cityCompensation %>%
  filter(year == 2019) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2020 <- 
  cityCompensation %>%
  filter(year == 2020) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021 <- 
  cityCompensation %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(cityCompensation2017, cityCompensation2018, cityCompensation2019, cityCompensation2020, cityCompensation2021, nrows = 5)

Yearly mean compensation for last 5 companies in 2017, 2018, 2019, 2020, 2021

companyCompensation2017 <- 
  companyCompensation %>%
  filter(year == 2017) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2018 <- 
  companyCompensation %>%
  filter(year == 2018) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2019 <- 
  companyCompensation %>%
  filter(year == 2019) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2020 <- 
  companyCompensation %>%
  filter(year == 2020) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2021 <- 
  companyCompensation %>%
  filter(year == 2021) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(companyCompensation2017, companyCompensation2018, companyCompensation2019, companyCompensation2020, companyCompensation2021, nrows = 5)

Yearly mean compensation for last 5 cities in 2017, 2018, 2019, 2020, 2021

cityCompensation2017 <- 
  cityCompensation %>%
  filter(year == 2017) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018 <- 
  cityCompensation %>%
  filter(year == 2018) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2019 <- 
  cityCompensation %>%
  filter(year == 2019) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2020 <- 
  cityCompensation %>%
  filter(year == 2020) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021 <- 
  cityCompensation %>%
  filter(year == 2021) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(cityCompensation2017, cityCompensation2018, cityCompensation2019, cityCompensation2020, cityCompensation2021, nrows = 5)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBkZl9wcmludDogcGFnZWQKLS0tCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGxvdGx5KQpgYGAKCmBgYHtyfQpsZXZlbHNfZGYgPC0gcmVhZF9jc3YoImxldmVscy1jbGVhbmVkLmNzdiIpCmBgYAoKYGBge3J9CmNvbXBhbnlDb21wZW5zYXRpb24gPC0gCiAgbGV2ZWxzX2RmICU+JQogIGdyb3VwX2J5KHllYXIsIGNvbXBhbnkpICU+JQogIHN1bW1hcmlzZSh5ZWFybHlfY29tcGVuc2F0aW9uID0gbWVhbih0b3RhbHllYXJseWNvbXBlbnNhdGlvbikpCgpjaXR5Q29tcGVuc2F0aW9uIDwtIAogIGxldmVsc19kZiAlPiUKICBncm91cF9ieSh5ZWFyLCBsb2NhdGlvbikgJT4lCiAgc3VtbWFyaXNlKHllYXJseV9jb21wZW5zYXRpb24gPSBtZWFuKHRvdGFseWVhcmx5Y29tcGVuc2F0aW9uKSkKYGBgCgpZZWFybHkgbWVhbiBjb21wZW5zYXRpb24gZm9yIHRvcCA1IGNvbXBhbmllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjb21wYW55Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTgpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNvbXBhbnlDb21wZW5zYXRpb24yMDE3LCBjb21wYW55Q29tcGVuc2F0aW9uMjAxOCwgY29tcGFueUNvbXBlbnNhdGlvbjIwMTksIGNvbXBhbnlDb21wZW5zYXRpb24yMDIwLCBjb21wYW55Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgdG9wIDUgY2l0aWVzIGluIDIwMTcsIDIwMTgsIDIwMTksIDIwMjAsIDIwMjEKYGBge3J9CmNpdHlDb21wZW5zYXRpb24yMDE3IDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxNykgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMTggPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE4KSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIwIDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMCkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMjEgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDIxKSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNpdHlDb21wZW5zYXRpb24yMDE3LCBjaXR5Q29tcGVuc2F0aW9uMjAxOCwgY2l0eUNvbXBlbnNhdGlvbjIwMTksIGNpdHlDb21wZW5zYXRpb24yMDIwLCBjaXR5Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgbGFzdCA1IGNvbXBhbmllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjb21wYW55Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTgpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNvbXBhbnlDb21wZW5zYXRpb24yMDE3LCBjb21wYW55Q29tcGVuc2F0aW9uMjAxOCwgY29tcGFueUNvbXBlbnNhdGlvbjIwMTksIGNvbXBhbnlDb21wZW5zYXRpb24yMDIwLCBjb21wYW55Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgbGFzdCA1IGNpdGllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjaXR5Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDE4IDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxOCkgJT4lCiAgYXJyYW5nZSh5ZWFybHlfY29tcGVuc2F0aW9uKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMTkgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE5KSAlPiUKICBhcnJhbmdlKHllYXJseV9jb21wZW5zYXRpb24pICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIxIDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMSkgJT4lCiAgYXJyYW5nZSh5ZWFybHlfY29tcGVuc2F0aW9uKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKc3VicGxvdChjaXR5Q29tcGVuc2F0aW9uMjAxNywgY2l0eUNvbXBlbnNhdGlvbjIwMTgsIGNpdHlDb21wZW5zYXRpb24yMDE5LCBjaXR5Q29tcGVuc2F0aW9uMjAyMCwgY2l0eUNvbXBlbnNhdGlvbjIwMjEsIG5yb3dzID0gNSkKYGBgCg==